home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / editors / AME / Rexx / runbuf.ame < prev    next >
Encoding:
Text File  |  1994-02-01  |  413 b   |  20 lines
  1. /* $VER: Runbuf 37.1 (21.2.93) : run external program on a buffer */
  2.  
  3. options results
  4.  
  5. 'getfilepath'
  6. oldname = result
  7. name = "T:" || address() || ".tmp"
  8.  
  9. saveas name
  10. parse arg program line
  11. if program = "" then do
  12.     requeststring "Program: "
  13.     if rc ~= 0 then exit
  14.     program = result
  15.     end
  16.  
  17.     address command program || ' ' || name || ' ' || line
  18.  
  19. address command 'delete >NIL: ' || name
  20. setfilepath oldname